home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / hobbbies / orgami / rabbit.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-21  |  10.4 KB  |  473 lines
  1. 10  REM ***Rabbit, Rabbit, Rabbit***
  2. 15  SCREEN 1,0:CLS:KEY OFF: COLOR 8,0
  3. 20  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  4. 25  LOCATE 12,1:PRINT FNCEN$("RABBIT",40)
  5. 30  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  6. 35  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  7. 40  PRINT FNCEN$("All Rights Reserved",40)
  8. 45  FOR K=1 TO 2500:NEXT K
  9. 50  CLS
  10. 55  FOR A=0 TO 20
  11. 60  OUT 66,A:OUT 66,A
  12. 65  OUT 97,(INP(97) OR 3)
  13. 70  NEXT A
  14. 75  SOUND 37,0
  15. 80  CLS
  16. 85  LINE(160,30)-(80,100)
  17. 90  LINE-(160,170)
  18. 95  LINE-(240,100)
  19. 100  LINE-(160,30)
  20. 105  FOR V=30 TO 170 STEP 2
  21. 110  PSET(160,V)
  22. 115  NEXT V
  23. 120  LINE(114,70)-(160,170)
  24. 125  LINE-(206,70)
  25. 130  GOSUB 30000   '*** <Textpad> ***
  26. 135  PRINT FNCEN$("RABBIT begins with KITE BASE.",40)
  27. 140  FOR K=1 TO 1500:NEXT K
  28. 145  FOR Q=0 TO 41
  29. 150  LINE(114,70)-(80+Q,100-0.37*Q)
  30. 155  LINE-(160,170)
  31. 160  LINE(114,70)-(80+Q,100-0.37*Q),0
  32. 165  LINE-(160,170),0
  33. 170  NEXT Q
  34. 175  FOR Q=0 TO 39
  35. 180  LINE(114,70)-(122+Q,85-0.38*Q)
  36. 185  LINE-(160,170)
  37. 190  LINE(114,70)-(121+Q,85-0.38*Q)
  38. 195  LINE-(160,170)
  39. 200  NEXT Q
  40. 205  LINE(161,70)-(161,169),0
  41. 210  FOR K=1 TO 750:NEXT K
  42. 215  FOR Q=0 TO 41
  43. 220  LINE(206,70)-(240-Q,100-0.37*Q)
  44. 225  LINE-(160,170)
  45. 230  LINE(206,70)-(240-Q,100-0.37*Q),0
  46. 235  LINE-(160,170),0
  47. 240  NEXT Q
  48. 245  FOR Q=0 TO 39
  49. 250  LINE(206,70)-(198-Q,85-0.38*Q)
  50. 255  LINE-(160,170)
  51. 260  LINE(206,70)-(199-Q,85-0.38*Q)
  52. 265  LINE-(160,170)
  53. 270  NEXT Q
  54. 275  LINE(160,70)-(160,170),0
  55. 280  FOR K=1 TO 750:NEXT K
  56. 285  GOSUB 30000   '*** <Textpad> ***
  57. 290  PRINT FNCEN$("Your turn to fold KITE BASE.  I'll wait.",40)
  58. 295  FOR K=1 TO 1500:NEXT K
  59. 300  GOSUB 30000   '*** Textpad ***
  60. 305  PRINT FNCEN$("Press <C> to continue.",40)
  61. 310  A$=INKEY$:IF A$="" GOTO 310
  62. 315  IF A$="C" OR A$="c" GOTO 325
  63. 320  GOTO 285
  64. 325  GOSUB 30000         '***Textpad***
  65. 330  PRINT FNCEN$("We proceed by folding this corner",40)
  66. 335  FOR K=1 TO 750:NEXT K
  67. 340  FOR K=1 TO 15
  68. 345  PSET(160,25):DRAW"E5 L4 U7 L2 D7 L4 F5"            '///ARROW DOWN///
  69. 350  PAINT(160,20)
  70. 355  FOR M=1 TO 25:NEXT M
  71. 360  CIRCLE(160,19),7,0
  72. 365  PAINT(160,19),0
  73. 370  NEXT K
  74. 375  GOSUB 30000         '***Textpad***
  75. 380  PRINT FNCEN$("down to this point,",40)
  76. 385  FOR K=1 TO 750:NEXT K
  77. 390  FOR K=1 TO 15
  78. 395  CIRCLE(160,110),5,0
  79. 400  LINE(158,110)-(162,110),0
  80. 405  LINE(160,108)-(160,112),0
  81. 410  FOR M=1 TO 25:NEXT M
  82. 415  CIRCLE(160,110),5
  83. 420  LINE(158,110)-(162,110)
  84. 425  LINE(160,108)-(160,112)
  85. 430  NEXT K
  86. 435  LINE(160,100)-(160,120),0
  87. 440  FOR K=1 TO 750:NEXT K
  88. 445  GOSUB 30000         '***Textpad***
  89. 450  PRINT FNCEN$(" SO!",40)
  90. 455  FOR K=1 TO 750:NEXT K
  91. 460  FOR V=30 TO 71
  92. 465  LINE(160,V)-(114,70),0
  93. 470  LINE(160,V+1)-(114,70)
  94. 475  LINE(160,V-2)-(114,70),0
  95. 480  LINE(160,V)-(206,70),0
  96. 485  LINE(160,V+1)-(206,70)
  97. 490  LINE(160,V-2)-(206,70),0
  98. 495  NEXT V
  99. 500  FOR V=71 TO 110
  100. 505  LINE(160,V)-(114,70),0
  101. 510  LINE(160,V)-(206,70),0
  102. 515  LINE(160,V-1)-(114,70)
  103. 520  LINE(160,V-1)-(206,70)
  104. 525  NEXT V
  105. 530  LINE(114,70)-(160,110),0
  106. 535  LINE-(206,70),0
  107. 540  FOR K=1 TO 750:NEXT K
  108. 545  GOSUB 30000   '*** Textpad ***
  109. 550  PRINT FNCEN$("Press <C> to continue.",40)
  110. 555  A$=INKEY$:IF A$="" GOTO 555
  111. 560  IF A$="C" OR A$="c" GOTO 570
  112. 565  GOTO 545
  113. 570  GOSUB 30000         '***Textpad***
  114. 575  PRINT FNCEN$("With a penknife or a pair of scissors,",40)
  115. 580  FOR K=1 TO 1000:NEXT K
  116. 585  FOR K=1 TO 15
  117. 590  LINE(153,178)-(167,199),0,BF
  118. 595  FOR M=1 TO 25:NEXT M
  119. 600  LINE(160,178)-(159,187)
  120. 605  LINE-(160,196)
  121. 610  LINE-(161,187)
  122. 615  LINE-(160,178)
  123. 620  CIRCLE(157,196),3,3,,,1
  124. 625  CIRCLE(163,196),3,3,,,1
  125. 630  NEXT K
  126. 635  FOR K=1 TO 750:NEXT K
  127. 640  GOSUB 30000         '***Textpad***
  128. 645  PRINT FNCEN$("cut along this line",40)
  129. 650  FOR K=1 TO 750:NEXT K
  130. 655  FOR K=1 TO 25
  131. 660  LINE(160,110)-(160,169),1
  132. 665  FOR M=1 TO 25:NEXT M
  133. 670  LINE(160,110)-(160,170),0
  134. 675  NEXT K
  135. 680  GOSUB 30000         '***Textpad***
  136. 685  PRINT FNCEN$("to separate my ears.",40)
  137. 690  FOR K=1 TO 750:NEXT K
  138. 695  FOR V=169 TO 110 STEP -1
  139. 700  PSET(160,V),1
  140. 705  FOR M=1 TO 20:NEXT M
  141. 710  NEXT V
  142. 715  FOR V=169 TO 110 STEP -1
  143. 720  PSET(160,V),0
  144. 725  FOR M=1 TO 20:NEXT M
  145. 730  NEXT V
  146. 735  FOR K=1 TO 750:NEXT K
  147. 740  LINE(153,178)-(167,199),0,BF
  148. 745  FOR K=1 TO 750:NEXT K
  149. 750  GOSUB 30000         '***Textpad***
  150. 755  PRINT FNCEN$("Press <C> to continue.",40)
  151. 760  A$=INKEY$:IF A$="" GOTO 760
  152. 765  IF A$="C" OR A$="c" GOTO 775
  153. 770  GOTO 750
  154. 775  GOSUB 30000  ' ***TEXTPAD***
  155. 780  PRINT FNCEN$("Next, we fold this corner",40)
  156. 785  FOR K=1 TO 750:NEXT K
  157. 790  LINE(154,105)-(160,110)
  158. 795  LINE-(166,105)
  159. 800  LINE(160,105)-(160,110),0
  160. 805  LINE(154,105)-(160,100),0
  161. 810  LINE-(166,105),0
  162. 815  LINE-(154,105),0
  163. 820  PSET(157,107):PSET(163,107)
  164. 825  FOR K=1 TO 750:NEXT K
  165. 830  GOSUB 30000         '***Textpad***
  166. 835  PRINT FNCEN$("back up to this point",40)
  167. 840  FOR K=1 TO 750:NEXT K
  168. 845  FOR K=1 TO 15
  169. 850  CIRCLE(160,60),5
  170. 855  LINE(158,60)-(162,60)
  171. 860  LINE(160,58)-(160,62)
  172. 865  FOR M=1 TO 25:NEXT M
  173. 870  CIRCLE(160,60),5,0
  174. 875  LINE(158,60)-(162,60),0
  175. 880  LINE(160,58)-(160,62),0
  176. 885  NEXT K
  177. 890  FOR K=1 TO 750:NEXT K
  178. 895  GOSUB 30000
  179. 900  PRINT FNCEN$("across this line,",40)
  180. 905  FOR K=1 TO 750:NEXT K
  181. 910  FOR K=1 TO 25
  182. 915  LINE(131,85)-(189,85),1
  183. 920  FOR M=1 TO 25:NEXT M
  184. 925  LINE(131,85)-(189,85),0
  185. 930  NEXT K
  186. 935  CIRCLE(212,85),0
  187. 940  PAINT(212,85),0
  188. 945  CIRCLE(108,85),0
  189. 950  PAINT(108,85),0
  190. 955  FOR H=132 TO 188 STEP 2
  191. 960  PSET(H,85)
  192. 965  NEXT H
  193. 970  FOR K=1 TO 750:NEXT K
  194. 975  GOSUB 30000       '***tEXTPAD***
  195. 980  PRINT FNCEN$("SO!",40)
  196. 985  FOR K=1 TO 750:NEXT K
  197. 990  LINE(154,105)-(160,100)
  198. 995  LINE-(166,105)
  199. 1000  LINE-(154,105)
  200. 1005  LINE(160,105)-(160,110)
  201. 1010  LINE(154,105)-(160,110),0
  202. 1015  LINE-(166,105),0
  203. 1020  FOR K=1 TO 250:NEXT K
  204. 1025  FOR V=110 TO 85 STEP -1
  205. 1030  LINE(131,85)-(160,V),0
  206. 1035  LINE-(189,85),0
  207. 1040  LINE(131,85)-(160,V)
  208. 1045  LINE-(189,85)
  209. 1050  PSET(160,V),0
  210. 1055  PSET(157,108):PSET(163,108)
  211. 1060  NEXT V
  212. 1065  FOR V=84 TO 60 STEP -2
  213. 1070  LINE(131,85)-(160,V)
  214. 1075  LINE-(189,85)
  215. 1080  LINE(131,85)-(160,V),0
  216. 1085  LINE-(189,85),0
  217. 1090  LINE(131,85)-(160,V+1),0
  218. 1095  LINE-(189,85),0
  219. 1100  PSET(160,V)
  220. 1105  NEXT V
  221. 1110  LINE(147,70)-(160,60)
  222. 1115  LINE-(173,70)
  223. 1120  FOR K=1 TO 750:NEXT K
  224. 1125  GOSUB 30000   '*** Textpad ***
  225. 1130  PRINT FNCEN$("Press <C> to continue.",40)
  226. 1135  A$=INKEY$:IF A$="" GOTO 1135
  227. 1140  IF A$="C" OR A$="c" GOTO 1150
  228. 1145  GOTO 1125
  229. 1150  GOSUB 30000   '*** Textpad ***
  230. 1155  PRINT FNCEN$("Now, we fold the left side of our figure",40)
  231. 1160  FOR K=1 TO 750:NEXT K
  232. 1165  FOR K=1 TO 15
  233. 1170  LINE(160,60)-(131,85),0
  234. 1175  LINE(147,70)-(114,70),0
  235. 1180  LINE-(160,170),0
  236. 1185  LINE-(160,60),0
  237. 1190  LINE(114,70)-(131,85),0
  238. 1195  LINE-(160,85),0
  239. 1200  FOR M=1 TO 25:NEXT M
  240. 1205  LINE(160,60)-(131,85),3
  241. 1210  LINE(147,70)-(114,70),3
  242. 1215  LINE-(160,170),3
  243. 1220  LINE-(160,60),3
  244. 1225  LINE(114,70)-(131,85),3
  245. 1230  LINE-(160,85),3
  246. 1235  NEXT K
  247. 1240  PSET(118,73):PSET(126,80)
  248. 1245  LINE(114,70)-(131,85),0
  249. 1250  LINE-(160,60),0
  250. 1255  LINE-(147,70)
  251. 1260  LINE(131,85)-(160,85),0
  252. 1265  FOR V=61 TO 85 STEP 2
  253. 1270  PSET(160,V),0
  254. 1275  NEXT V
  255. 1280  LINE(160,85)-(160,170),0
  256. 1285  FOR K=1 TO 750:NEXT K
  257. 1290  GOSUB 30000                     '***tEXTPAD***
  258. 1295  PRINT FNCEN$("over to the right side,",40)
  259. 1300  FOR K=1 TO 750:NEXT K
  260. 1305  FOR K=1 TO 15
  261. 1310  LINE(160,60)-(189,85),0
  262. 1315  LINE(173,70)-(206,70),0
  263. 1320  LINE-(160,170),0
  264. 1325  LINE-(160,60),0
  265. 1330  LINE(206,70)-(189,85),0
  266. 1335  LINE-(160,85),0
  267. 1340  FOR M=1 TO 25:NEXT M
  268. 1345  LINE(160,60)-(189,85),3
  269. 1350  LINE(173,70)-(206,70),3
  270. 1355  LINE-(160,170),3
  271. 1360  LINE-(160,60),3
  272. 1365  LINE(206,70)-(189,85),3
  273. 1370  LINE-(160,85),3
  274. 1375  NEXT K
  275. 1380  PSET(202,73):PSET(194,80)
  276. 1385  LINE(206,70)-(189,85),0
  277. 1390  LINE-(160,60),0
  278. 1395  LINE-(173,70)
  279. 1400  LINE(160,85)-(189,85),0
  280. 1405  FOR V=61 TO 85 STEP 2
  281. 1410  PSET(160,V),0
  282. 1415  NEXT V
  283. 1420  LINE(160,85)-(160,170),0
  284. 1425  FOR K=1 TO 750:NEXT K
  285. 1430  GOSUB 30000                     '***tEXTPAD***
  286. 1435  PRINT FNCEN$("SO!",40)
  287. 1440  FOR K=1 TO 750: NEXT K
  288. 1445  FOR Q=0 TO 46
  289. 1450  LINE(160,60)-(131+0.63*Q,85)
  290. 1455  LINE-(114+Q,70),0
  291. 1460  LINE-(160,170),0
  292. 1465  LINE(131+0.63*Q,85)-(114+Q,70)
  293. 1470  LINE(160,170)-(114+Q,70)
  294. 1475  LINE(160,170)-(114+Q,70),0
  295. 1480  LINE(160,60)-(147+0.28*Q,69),0
  296. 1485  NEXT Q
  297. 1490  FOR H=160 TO 173
  298. 1495  LINE(160,60)-(H,70),3
  299. 1500  LINE(160,170)-(H,70),3
  300. 1505  LINE(160,69)-(173,69),0
  301. 1510  NEXT H
  302. 1515  FOR H=173 TO 206
  303. 1520  LINE(160,170)-(H,70),3
  304. 1525  NEXT H
  305. 1530  FOR K=1 TO 1500:NEXT K
  306. 1535  GOSUB 30000         '***Textpad***
  307. 1540  PRINT FNCEN$("Now we're ready for our final folds.",40)
  308. 1545  FOR K=1 TO 1500:NEXT K
  309. 1550  GOSUB 30000         '***Textpad***
  310. 1555  PRINT FNCEN$("But first let's position ourselves",40)
  311. 1560  FOR K=1 TO 1500:NEXT K
  312. 1565  PRINT FNCEN$("more comfortably.",40)
  313. 1570  FOR K=1 TO 1500:NEXT K
  314. 1575  GOSUB 30000         '***Textpad***
  315. 1580  PRINT FNCEN$("One moment, please.",40)
  316. 1585  FOR K=1 TO 1500:NEXT K
  317. 1590  CLS
  318. 1591  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  319. 1595  FOR A=0 TO 20
  320. 1600  OUT 66,A:OUT 66,A
  321. 1605  OUT 97,(INP(97) OR 3)
  322. 1610  NEXT A
  323. 1615  SOUND 37,0
  324. 1620  LINE(255,150)-(10,150)
  325. 1625  LINE-(245,60)
  326. 1630  LINE-(225,90)
  327. 1635  LINE-(255,150)
  328. 1640  PAINT(160,120),3
  329. 1645  LINE(216,70)-(226,90),0
  330. 1650  FOR K=1 TO 750:NEXT K
  331. 1655  GOSUB 30000         '***Textpad***
  332. 1660  PRINT FNCEN$("There!  That's much better!",40)
  333. 1665  FOR K=1 TO 1500:NEXT K
  334. 1670  GOSUB 30000         '***Textpad***
  335. 1675  PRINT FNCEN$("We now fold this outside corner",40)
  336. 1680  FOR K=1 TO 250:NEXT K
  337. 1685  FOR K=1 TO 15
  338. 1690  PSET(10,158):DRAW"G5 R4 D7 R2 U7 R4 H5"
  339. 1695  PAINT(10,164)
  340. 1700  FOR M=1 TO 25:NEXT M
  341. 1705  CIRCLE (10,164),7,0
  342. 1710  PAINT(10,164),0
  343. 1715  NEXT K
  344. 1720  FOR K=1 TO 500:NEXT K
  345. 1725  GOSUB 30000         '***Textpad***
  346. 1730  PRINT FNCEN$("up to roughly this point",40)
  347. 1735  FOR K=1 TO 15
  348. 1740  CIRCLE(165,40),5,3
  349. 1745  LINE(163,40)-(167,40),3
  350. 1750  LINE(165,38)-(165,42),3
  351. 1755  FOR M=1 TO 25:NEXT M
  352. 1760  CIRCLE(165,40),5,0
  353. 1765  LINE(163,40)-(167,40),0
  354. 1770  LINE(165,38)-(165,42),0
  355. 1775  NEXT K
  356. 1780  CIRCLE(165,40),5,0
  357. 1785  PSET(165,40),0
  358. 1790  FOR K=1 TO 500:NEXT K
  359. 1795  GOSUB 30000         '***Textpad***
  360. 1800  PRINT FNCEN$("along about this line",40)
  361. 1805  FOR K=1 TO 500:NEXT K
  362. 1810  FOR K=1 TO 25
  363. 1815  LINE(105,114)-(141,150),3
  364. 1820  FOR M=1 TO 25:NEXT M
  365. 1825  LINE(105,114)-(141,150),0
  366. 1830  NEXT K
  367. 1835  FOR K=1 TO 500:NEXT K
  368. 1840  GOSUB 30000         '***Textpad***
  369. 1845  PRINT FNCEN$("to set our ears at a jaunty angle,",40)
  370. 1850  FOR K=1 TO 1500:NEXT K
  371. 1855  GOSUB 30000         '***Textpad***
  372. 1860  PRINT FNCEN$("SO!",40)
  373. 1865  FOR K=1 TO 1000:NEXT K
  374. 1870  FOR Q=0 TO 95
  375. 1875  LINE(105,114)-(10+Q,150-0.38*Q),0
  376. 1880  LINE-(141,150),0
  377. 1885  LINE(105,114)-(10+Q,150-0.38*Q)
  378. 1890  LINE-(141,150)
  379. 1895  NEXT Q
  380. 1900  FOR Q=O TO 74
  381. 1905  LINE(141,150)-(105+0.81*Q,114-Q),0
  382. 1910  LINE(105,114)-(105+0.81*Q,114-Q)
  383. 1915  LINE-(141,150)
  384. 1920  LINE(141,150)-(105+0.81*Q,114-Q)
  385. 1925  LINE(105,114)-(141,150),0
  386. 1930  LINE(105+0.32*Q,114-0.39*Q)-(130+0.32*Q,114-0.29*Q)
  387. 1935  NEXT Q
  388. 1940  LINE(166,40)-(142,150),0
  389. 1945  FOR Q=0 TO 26
  390. 1950  LINE(129+Q,85)-(108+Q,111)
  391. 1955  NEXT Q
  392. 1960  FOR K=1 TO 750:NEXT K
  393. 1965  GOSUB 30000   '*** Textpad ***
  394. 1970  PRINT FNCEN$("Press <C> to continue.",40)
  395. 1975  A$=INKEY$:IF A$="" GOTO 1975
  396. 1980  IF A$="C" OR A$="c" GOTO 1990
  397. 1985  GOTO 1965
  398. 1990  GOSUB 30000         '***Textpad***
  399. 1995  PRINT FNCEN$("and likewise with our other ear,",40)
  400. 2000  FOR K=1 TO 1500:NEXT K
  401. 2005  GOSUB 30000   '*** <Textpad> ***
  402. 2010  PRINT FNCEN$("SO!",40)
  403. 2015  FOR K=1 TO 750:NEXT K
  404. 2020  FOR Q=0 TO 95
  405. 2025  LINE(105,114)-(10+Q,150-0.38*Q),0
  406. 2030  LINE-(141,150),0
  407. 2035  LINE(105,114)-(10+Q,150-0.38*Q)
  408. 2040  LINE(10+Q,150-0.38*Q)-(141,150),0
  409. 2045  LINE(10+Q,151-0.38*Q)-(141,151),0
  410. 2050  LINE(16,147)-(103,114),0
  411. 2055  NEXT Q
  412. 2060  FOR Q=O TO 74
  413. 2065  LINE(141,150)-(105+0.81*Q,114-Q),1
  414. 2070  LINE(105,114)-(105+0.81*Q,114-Q)
  415. 2075  LINE-(141,150)
  416. 2080  LINE(141,150)-(105+0.81*Q,114-Q)
  417. 2085  LINE(105,114)-(141,150),0
  418. 2090  NEXT Q
  419. 2095  LINE(166,40)-(142,150),0
  420. 2100  LINE(105,114)-(150,42),3
  421. 2105  LINE-(155,60),3
  422. 2110  PAINT(145,60),3
  423. 2115  PSET(114,101):PSET(113,102):PSET(113,103):PSET(112,104)
  424. 2120  LINE(105,114)-(154,53),0
  425. 2125  FOR K=1 TO 1500:NEXT K
  426. 2130  GOSUB 30000         '***Textpad***
  427. 2135  PRINT FNCEN$("There!  I'm done!",40)
  428. 2140  FOR K=1 TO 1500:NEXT K
  429. 2145  GOSUB 30000         '***Textpad***
  430. 2150  PRINT FNCEN$("If you'd like, you might give me",40)
  431. 2155  FOR K=1 TO 1500:NEXT K
  432. 2160  GOSUB 30000         '***Textpad***
  433. 2165  PRINT FNCEN$("an eye,",40)
  434. 2170  FOR K=1 TO 1000:NEXT K
  435. 2175  CIRCLE(135,95),4,0
  436. 2180  CIRCLE(135,95),2,0
  437. 2185  PSET(135,95),0
  438. 2190  FOR K=1 TO 1500:NEXT K
  439. 2195  PRINT FNCEN$("a nose,",40)
  440. 2200  FOR K=1 TO 1000:NEXT K
  441. 2205  CIRCLE(110,113),4,0
  442. 2210  PAINT(110,113),0
  443. 2215  CIRCLE(110,113),4,3
  444. 2220  FOR K=1 TO 1500:NEXT K
  445. 2225  PRINT FNCEN$("and some whiskers.",40)
  446. 2230  FOR K=1 TO 1000:NEXT K
  447. 2235  LINE(117,111)-(125,107),0
  448. 2240  LINE(117,108)-(125,100),0
  449. 2245  LINE(117,114)-(125,118),0
  450. 2250  FOR K=1 TO 1500:NEXT K
  451. 2255  GOSUB 30000         '***Textpad***
  452. 2260  PRINT FNCEN$("Mission accomplished!",40)
  453. 2265  FOR K=1 TO 1500:NEXT K
  454. 2270  GOSUB 30000                '*** Textpad ***
  455. 2275  PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
  456. 2280  PRINT FNCEN$("   <2> - To repeat RABBIT.",40)
  457. 2285  PRINT FNCEN$("      <3> - To exit from program.",40)
  458. 2290  E$=INPUT$(1)
  459. 2295  IF E$<"1" OR E$>"3" GOTO 2290
  460. 2300  SEL=VAL(E$)
  461. 2305  COMMON SEL
  462. 2310  CLS
  463. 2315  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  464. 2316  LINE(70,75)-(250,125),3,B
  465. 2320  ON SEL GOTO 2325,2330,2335
  466. 2325  CHAIN"a:main"
  467. 2330  CHAIN"a:rabbit
  468. 2335  CHAIN"a:end"
  469. 8999  END
  470. 30000  LOCATE 1,1
  471. 30010  PRINT "                                                                                                                        "
  472. 30020  LOCATE 1,1:RETURN
  473.